PC World 2008 February/PCWorld_2008-02_cd.bin/domacnost a kancelar/move action/moveaction.exe/Unit1.dfm

Text File | 2007-12-27 | 16KB | 408 lines

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Move Action'
  ClientHeight = 447
  ClientWidth = 351
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnActivate = FormActivate
  OnCanResize = FormCanResize
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object TImage
    Left = 144
    Top = 160
    Width = 105
    Height = 105
  end
  object Panel1: TPanel
    Left = 0
    Top = 302
    Width = 351
    Height = 145
    Align = alBottom
    TabOrder = 0
    object JLCVideo1: TJLCVideo
      Left = 376
      Top = 121
      Width = 26
      Height = 22
      FicheroVideo = 'Video.avi'
      FicheroImagen = 'Imagen.bmp'
      Visible = False
    end
    object pnlControls: TPanel
      Left = 1
      Top = 6
      Width = 349
      Height = 139
      BevelOuter = bvNone
      TabOrder = 1
      object lblInformation: TLabel
        Left = 15
        Top = 22
        Width = 66
        Height = 13
        Caption = 'lblInformation'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object Label1: TLabel
        Left = 15
        Top = 56
        Width = 83
        Height = 13
        Hint = 'This shows the actual movement detected between frames (0-100)'
        Caption = 'Actual Movement'
        ParentShowHint = False
        ShowHint = True
      end
      object Label2: TLabel
        Left = 15
        Top = 87
        Width = 85
        Height = 13
        Hint =
          'Drag the slider to indicate the amount of movement that will tri' +
          'gger actions'
        Caption = 'Movement trigger'
        ParentShowHint = False
        ShowHint = True
      end
      object lblActualMovement: TLabel
        Left = 311
        Top = 56
        Width = 6
        Height = 13
        Hint = 'This shows the actual movement detected between frames (0-100)'
        Caption = '0'
        ParentShowHint = False
        ShowHint = True
      end
      object lblMovementTrigger: TLabel
        Left = 311
        Top = 87
        Width = 6
        Height = 13
        Hint =
          'Drag the slider to indicate the amount of movement that will tri' +
          'gger actions'
        Caption = '0'
        ParentShowHint = False
        ShowHint = True
      end
      object lblLockCountdown: TLabel
        Left = 16
        Top = 116
        Width = 86
        Height = 13
        Caption = 'lblLockCountdown'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        Visible = False
      end
      object TImage
        Left = 152
        Top = -160
        Width = 105
        Height = 105
      end
      object ProgressBar1: TProgressBar
        Left = 108
        Top = 54
        Width = 169
        Height = 17
        Hint = 'This shows the actual movement detected between frames (0-100)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object TrackBar1: TTrackBar
        Left = 106
        Top = 77
        Width = 171
        Height = 33
        Hint =
          'Drag the slider to indicate the amount of movement that will tri' +
          'gger actions'
        Max = 100
        ParentShowHint = False
        ShowHint = True
        ShowSelRange = False
        TabOrder = 1
        TickStyle = tsNone
        OnChange = TrackBar1Change
      end
      object btnCancelLock: TButton
        Left = 202
        Top = 110
        Width = 75
        Height = 25
        Hint = 'Cancel the system lock'
        Cancel = True
        Caption = '&Cancel'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Visible = False
        OnClick = btnCancelLockClick
      end
    end
  end
  object pnlSpeedButtons: TPanel
    Left = 0
    Top = 0
    Width = 351
    Height = 23
    Align = alTop
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 0
      Top = 1
      Width = 23
      Height = 22
      Hint = 'Visit Move Action web site'
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000000000888488C8C4C8C8
        C4C800FF00888488888488888488888488888488888488000000000000000000
        000000000000000000888488FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF888488000000000000000000000000FF0000FF000088848800000000
        0000000000000000000000000000000000000000888488000000000000888488
        FF0000FF0000FF0000FF0000888488C8C4C8C8C4C8C8C4C8C8C4C8C8C4C8C8C4
        C8C8C4C8000000000000000000888488FF0000FF0000FF0000FF0000888488FF
        FFFF000000880000880000880000880000C8C4C8000000000000888488FF0000
        FF0000FF0000FF0000FF0000888488FFFFFF000000FF0000FF0000FF00008800
        00C8C4C8000000000000888488FF0000FF0000FF0000008400008400888488FF
        FFFF000000FFFF00FF0000FF0000880000C8C4C8000000000000888488FF0000
        FF0000008400008400008400888488FFFFFF0000000000000000000000000000
        00C8C4C8000000000000888488FF0000FF0000008400008400008400888488FF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000888488FF0000
        FF000000FF000084000084000084008884888884888884888884888884888884
        88888488888488000000000000888488FF0000FF0000FFFFFF00FF00FF0000FF
        0000FF0000FF0000FF0000008400008400000000000000000000000000888488
        FF0000FFFFFF00FF00FFFFFF00FF000084000084000084000084000084000084
        00000000000000000000000000000000888488FF0000FF000000FF00FFFFFF00
        FF00008400008400008400008400000000000000000000000000000000000000
        000000888488888488FF0000FF0000FFFFFF00FF000084000000000000000000
        0000000000000000000000000000000000000000000000000088848888848888
        8488888488888488000000000000000000000000000000000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object sbCameraSource: TSpeedButton
      Left = 24
      Top = 1
      Width = 23
      Height = 22
      Hint = 'Select video source'
      Glyph.Data = {
        F6090000424DF609000000000000360000002800000022000000180000000100
        180000000000C009000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000006F6F6FB8B8B86F6F6FB8B8B8B8B8B8B8B8B8
        B8B8B8B8B8B8B8B8B8B8B8B8B8B8B80000006F6F6F0000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000000000000000006F6F6FB8B8B86F
        6F6FB8B8B86F6F6FB8B8B8006F00B8B8B8B8B8B80000006F6F6F6F6F6F000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000006F6F6FB8B8B86F6F6FB8B8B800FF0000FF00B8B8B86F6F6F6F6F6F00
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000006F6F6FB8B8B86F6F6FB8B8B86F6F6FB8B8
        B86F6F6F00000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000000000006F6F6F6F6F6F
        6F6F6F6F6F6F0000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000006F6F6F6F6F6F6F6F6FB8B8B86F6F6FB8B8B800000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000006F6F6F6F6F6FB8B8B86F6F6FB8B8B86F6F6FB8B8B86F6F
        6FB8B8B8B8B8B86F6F6F00000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000006F6F6F6F6F6FB8B8B86F6F6FB8B8B86F6F6F
        B8B8B8B8B8B8B8B8B86F6F6FB8B8B8B8B8B86F6F6F0000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000000000006F6F6FB8B8B86F6F6FB8
        B8B8000082000082000082000082B8B8B8B8B8B8B8B8B8B8B8B86F6F6F000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000006F6F6FB8B8
        B86F6F6FB8B8B80000820000DA0000820000820000DA000082B8B8B8B8B8B8B8
        B8B8B8B8B86F6F6F000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000006F6F6F6F6F6FB8B8B80000820000DA0000820000820000DA0000DA0000
        DA000082B8B8B8B8B8B8B8B8B86F6F6F00000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000006F6F6FB8B8B86F6F6F0000820000820000820000DA
        0000DA0000DA0000DA000082B8B8B8B8B8B8B8B8B86F6F6F0000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000B8B8B86F6F6FB8B8B800008200
        00820000DA0000DA0000DA0000DA000000000082B8B8B8B8B8B8B8B8B86F6F6F
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000006F6F6FB8B8
        B86F6F6F0000820000DA0000DA0000DA0000DA000000000000000082B8B8B8B8
        B8B80000006F6F6F000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000B8B8B86F6F6FB8B8B8B8B8B80000820000DA0000000000000000000000
        82B8B8B8B8B8B8B8B8B80000006F6F6F00000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000006F6F6FB8B8B8B8B8B8B8B8B8B8B8B8000082000082
        000082000082B8B8B8B8B8B8B8B8B80000006F6F6F0000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000006F6F6FB8B8B8B8B8B8B8B8B8B8
        B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8000000B8B8B86F6F6F000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000006F6F
        6FB8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8B8000000000000B8B8B86F
        6F6F000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000006F6F6F6F6F6F000000B8B8B8B8B8B8000000000000B8B8
        B86F6F6F6F6F6F00000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000006F6F6F6F6F6F6F6F6F
        6F6F6F6F6F6F6F6F6F0000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = sbCameraSourceClick
    end
    object sbDefineZone: TSpeedButton
      Left = 48
      Top = 1
      Width = 23
      Height = 22
      Hint = 'Define movement capture zone'
      AllowAllUp = True
      GroupIndex = 1
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C000
        0000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0
        C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0
        C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C000
        0000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C000
        0000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0
        C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0
        C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C000
        0000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C000
        0000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0
        C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0
        C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C000
        0000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C000
        0000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0
        C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0
        C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C000
        0000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = sbDefineZoneClick
    end
  end
  object pnlMainImage: TPanel
    Left = 0
    Top = 23
    Width = 351
    Height = 279
    Align = alClient
    TabOrder = 2
    object imgPrevious: TImage
      Left = 189
      Top = 50
      Width = 89
      Height = 64
      Stretch = True
      Visible = False
    end
    object imgCurrent: TImage
      Left = 61
      Top = 50
      Width = 84
      Height = 63
      Stretch = True
    end
    object pnlDetectionZone: TPanel
      Left = 82
      Top = 87
      Width = 167
      Height = 130
      Margins.Left = 0
      Margins.Top = 0
      Margins.Right = 0
      Margins.Bottom = 0
      Color = clBlue
      TabOrder = 0
      Visible = False
      object pnlZoneImage: TPanel
        Left = 9
        Top = 8
        Width = 152
        Height = 113
        Margins.Left = 0
        Margins.Top = 0
        Margins.Right = 0
        Margins.Bottom = 0
        Color = clBlue
        TabOrder = 0
        DesignSize = (
          152
          113)
        object imgZone: TImage
          Left = 0
          Top = 0
          Width = 153
          Height = 113
          Anchors = []
          Stretch = True
        end
      end
    end
  end
end